#!/usr/bin/perl -w

my @num = qw / 17 1000 04 1.50 3.14159 -10 1.5 4 2001 90210 666 /;
my @snum = sort { $a <=> $b } @num;

foreach (@snum) {
printf "%20s \n", $_;
}
